home *** CD-ROM | disk | FTP | other *** search
/ Trees of Indiana / Trees of Indiana.iso / pc / data / main.dxr / Scripts_9.ls < prev    next >
Encoding:
Text File  |  2002-08-01  |  491 b   |  20 lines
  1. on keyUp
  2.   entryField = member("entryField")
  3.   displayField = member("displayField")
  4.   entry = entryField.text
  5.   display = displayField.text
  6.   if entry = EMPTY then
  7.     exit
  8.   end if
  9.   linePosition = 1
  10.   repeat while display <> EMPTY
  11.     if entry < line 1 of display then
  12.       exit repeat
  13.     end if
  14.     delete line 1 of display
  15.     linePosition = linePosition + 1
  16.   end repeat
  17.   put EMPTY before line linePosition of field displayField
  18.   hilite line linePosition of field displayField
  19. end
  20.